home *** CD-ROM | disk | FTP | other *** search
/ Inside Mac Games Volume 2 October / IMG Oct-94.toast / Demos / Outland Installer / Outland Installer / Direct Connect < prev    next >
Text File  |  1991-12-17  |  447b  |  35 lines
  1. @ORIGINATE
  2. @ANSWER
  3. serreset 19200, 0, 8, 1
  4. matchclr
  5. ifANSWER 9
  6. settries 0
  7. @LABEL 8
  8. write "ORIGINATE"
  9. matchstr 1 11 "CONNECT"
  10. matchread 50
  11. inctries
  12. iftries 10 54
  13. jump 8
  14. exit 0
  15. @LABEL 9
  16. write "ANSWER READY"
  17. matchstr 1 11 "ORIGINATE"
  18. @LABEL 10
  19. matchread 700
  20. jump 10
  21. @LABEL 11
  22. write "CONNECT"
  23. @LABEL 12
  24. note "Direct Connection Established" 2
  25. ifANSWER 13
  26. pause 30
  27. @LABEL 13
  28. exit 0
  29. @HANGUP
  30. write "@HANGUP"
  31. exit 0
  32. @LABEL 54
  33. note "No answer" 2
  34. exit -6023
  35.